10 REM NEW RERUN C64 AUTOMENU
20 REM LOU WALLACE
40 POKE53280,0:POKE53281,0:PRINTCHR$(142)
50 DR=PEEK(186):V=54273
60 CH$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
70 DR$=RIGHT$(STR$(DR),LEN(STR$(DR))-1)
80 DIM N$(255),D$(255):CX=54272:PRINT "[147]"
90 READ F
100 FOR I=1 TO F:READ N$(I),D$(I)
110 IF LEN(N$(I))>13 THEN N$(I)=LEFT$(N$(I),13)+"*"
120 NEXT
130 GOSUB 400
140 REM - PRINT FIRST COLUMN OF NAMES -
150 D$=""
160 FOR I=1 TO F/2
170 PRINT D$;
180 PRINT""MID$(CH$,I,1)" "N$(I)
190 GOSUB 590:D$=D$+""
200 NEXT
210 REM -- THEN 2ND COLUMN OF NAMES ---
220 D$=""
230 FOR I=(F/2+1) TO F
240 PRINT D$;
250 PRINTSPC(19)""MID$(CH$,I,1)" "N$(I)
260 GOSUB 590:D$=D$+""
270 NEXT
280 GETM$:IFM$=""THEN 280
290 IFM$<"A"ORM$>CHR$(64+F)THEN280
300 P=ASC(M$)-64:PRINT"[147]"
310 IF D$(P)<>"RUN" THEN 340
320 IFLEN(N$(P))>12THENN$(P)=LEFT$(N$(P),12)+"*"
330 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$"[145][145][145]":GOTO360
340 IFLEN(N$(P))>15THENN$(P)=LEFT$(N$(P),16)+"*"
350 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$",1[145][145][145]"
360 A$=D$(P)
370 A$=A$+CHR$(13)
380 POKE631,13:FORB=1TOLEN(A$):POKE631+B,ASC(MID$(A$,B,1)):NEXT:POKE198,10
390 NEW
400 POKE 53280,0:POKE 53281,0
410 OV=PEEK(53265)
420 POKE 53265,PEEK(53265)AND 247
430 POKE 53265,(PEEK(53265)AND248)+7
440 PR$="[209][165]                                    [167][209]"
450 TP$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
460 MD$="[209][165][194]                                  [194][167][209]"
470 BT$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
480 HD$="MAY/JUNE 1989 RERUN"
490 PRINT"[147]";
500 PRINT TP$;:GOSUB 590
510 FOR I=1 TO 2:PRINT MD$;:GOSUB 590:NEXT
520 PRINT"[145]";HD$;:GOSUB 590
530 PRINT:PRINT"[145]";
540 FOR I=1 TO 1:PRINT MD$;:GOSUB 590:NEXT
550 PRINT BT$;:GOSUB 590
560 FOR I=1 TO 19:PRINT PR$;:GOSUB 590:NEXT
570 POKE 53265,27
580 RETURN
590 REM SOUND ROUTINE HERE
600 POKE V+23,15:POKE V+4,9:POKE V+5,0:POKE V,1:POKE V+3,32:POKE V+3,33
610 RETURN
1000 REM FILE LIST
1010 REM FIRST ENTRY IS THE NUMBER OF PROGRAMS ON THIS DISK
1020 REM FOLLOWED BY EACH FILENAME
1030 REM SECOND DATA ITEM IS RUN OR SYSXXXXX
1040 REM RUN IF FILE IS BASIC AND SYS XXXXX IF ML
1050 DATA 10
1060 DATA MS-DOS FORMATTER,RUN
1070 DATA TIC-TAC MATH,RUN
1080 DATA BOXES,RUN
1090 DATA CALCULATOR,RUN
1100 DATA CALORIE LIST1,RUN
1110 DATA TYPE INVADERS,RUN
1120 DATA MS-DOS 64,RUN
1125 DATA BOOT CONDORS,RUN
1130 DATA AUTOSET,RUN
1140 DATA ANIMATION MAKER,RUN
1150 DATA "",RUN